(display (list 1 (list 2 (list 3 (list 4)))))
(exit)